Imports CapaDeDatos
Public Class nLocalidad
    Public Localidad As dLocalidad = New dLocalidad()
    Public Provincia As dProvincia = New dProvincia

    Public Function InsertarLocalidad(ByVal Nombre As String, ByVal CodigoPostal As String, ByVal CodigoProv As String) As Boolean
        Localidad.Insertar(Nombre, CodigoPostal, CodigoProv)
    End Function
    Public Function Listar(ByVal Nombre As String, ByVal CodigoPostal As String, ByVal CodigoProv As String) As DataSet

        Dim DtsPrincipal As DataSet
        DtsPrincipal = Localidad.Listar(Nombre, CodigoPostal, CodigoProv)
        DtsPrincipal.Tables(0).Columns.Add("Provincia")
        Dim I As Integer

        For I = 0 To DtsPrincipal.Tables(0).Rows.Count - 1
            Try
                DtsPrincipal.Tables(0).Rows(I)("Provincia") = Provincia.BuscarFiltrado(DtsPrincipal.Tables(0).Rows(I)("CodigoProv").ToString, "").Tables(0).Rows(0)("Nombre").ToString
            Catch ex As Exception
                DtsPrincipal.Tables(0).Rows(I)("Provincia") = "Nombre No Registrado"
            End Try
        Next

        Return DtsPrincipal
    End Function
    Public Function Buscar(ByVal CodigoLocalidad As String) As DataSet
        Return Localidad.BuscarFiltrado(CodigoLocalidad, "", "", "")
    End Function
    Public Function ProvinciaXLocalidad(ByVal CodigoLocalidad As String) As Integer
        Return CInt(Localidad.BuscarFiltrado(CodigoLocalidad, "", "", "").Tables(0).Rows(0)("CodigoProv").ToString())
    End Function
    Public Function EliminarLocalidad(ByVal CodigoLocalidad As Integer) As DataSet
        Return Localidad.Eliminar(CodigoLocalidad)
    End Function
    Public Function ModificarLocalidad(ByVal CodigoLocalidad As Integer, ByVal Nombre As String, ByVal CodigoPostal As Double, ByVal CodigoProv As Double) As Boolean
        Return Localidad.Modificar(CodigoLocalidad, Nombre, CodigoPostal, CodigoProv)
    End Function
End Class
